home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Emulatoren / C64-Diskmagz / mailma25 / mm25c.d64 / user-help.64 (.txt) next >
Encoding:
Commodore BASIC  |  2000-02-15  |  5.3 KB  |  166 lines
  1. 10 REM USER HELP=================64
  2. 20 REM (P)  COMMODORE WELT       ==
  3. 30 REM (C) BY                    ==
  4. 40 REM CH. KROELL                ==
  5. 50 REM                           ==
  6. 60 REM VERSION 1.0               ==
  7. 70 REM C64+1541;+MPS801/GP 100 VC==
  8. 80 REM ============================
  9. 90 REM
  10. 100 CK$=CHR$(17)+CHR$(29)+CHR$(158)+CHR$(18)
  11. 110 FOR I=0TO101:READ X:Z=Z+X:POKE 49152+I,X:NEXT
  12. 120 POKE53280,0:POKE53281,0:PRINTCHR$(147)
  13. 130 PRINTCHR$(158)+CHR$(17)+CHR$(29)+CHR$(18)+"  USER-HELP V1.0  "+CHR$(146)
  14. 140 PRINTCHR$(156)+CHR$(17)+CHR$(17)+CHR$(17)+CHR$(29)+"(P) COMMODORE WELT"
  15. 150 PRINTCHR$(17)+CHR$(159)+CHR$(29)+"(C) CHRISTIAN KROELL"
  16. 160 PRINTCD$+CHR$(17)+CHR$(17)
  17. 170 PRINTCHR$(129)+"      ==>"+CHR$(18)+"BITTE TASTE DRUECKEN"+CHR$(146)+"<=="
  18. 180 POKE 198,0:WAIT198,1
  19. 190 REM --MENUE
  20. 200 POKE53280,0:POKE53281,0:PRINTCHR$(147)+CHR$(159)
  21. 210 PRINTCHR$(142)CHR$(29)+CHR$(29)+"USER-HELP V1.0
  22. 220 [153][199](8)[170]CK$[170][199](17)[170]" F1 "[170][199](146)[170][199](156)[170]" DIRECTORY"
  23. 230 [153]CK$[170]" F2 "[170][199](146)[170][199](156)[170]" DIRECTORY AUSDRUCKEN"
  24. 240 [153]CK$[170]" F3 "[170][199](146)[170][199](156)[170]" FORMATIEREN"
  25. 250 [153]CK$[170]" F4 "[170][199](146)[170][199](156)[170]" VALIDIEREN"
  26. 260 [153]CK$[170]" F5 "[170][199](146)[170][199](156)[170]" PRG.-SCRATCH"
  27. 270 [153]CK$[170]" F6 "[170][199](146)[170][199](156)[170]" DISK-TIP"
  28. 280 [153]CK$[170]" F7 "[170][199](146)[170][199](156)[170]" DISK NAME/ID AENDERN"
  29. 290 [153]CK$[170]" F8 "[170][199](146)[170][199](156)[170]" LAUFWERK-NUMMER AENDERN"
  30. 300 [153]CK$[170]" _LEN "[170][199](146)[170][199](156)[170]" - ENDE -"
  31. 310 [153][199](17)[170][199](17)[170][199](29)[170]"BITTE WAEHLEN SIE !"
  32. 320 [161] A$
  33. 330 [139] A$[178][199](133) [167] 1330
  34. 340 [139] A$[178][199](137) [167] 1380
  35. 350 [139] A$[178][199](134) [167] 1270
  36. 360 [139] A$[178][199](138) [167] 1220
  37. 370 [139] A$[178][199](135) [167] 1170
  38. 380 [139] A$[178][199](139) [167] 910
  39. 390 [139] A$[178]"_" [167] 870
  40. 400 [139] A$[178][199](136) [167] 620
  41. 410 [139] A$[178][199](140) [167] 520
  42. 420 [137] 320
  43. 430 [143] -DIRECTORY DATA'S
  44. 440 [131]169,1,162,205,160,235,32,189,255,169,8,133,186,169,96,133,185,32,213
  45. 450 [131]243,165,186,32,180,255,165,185,32,150,255,169,0,133,144,160,3,132,251
  46. 460 [131]32,165,255,133,252,164,144,208,52,32,165,255,164,144,208,45,164,251
  47. 470 [131]136,208,233,166,252,32,205,189,169,32,32,210,255,32,165,255,166,144
  48. 480 [131]208,23,170,240,6,32,210,255,24,144,240,169,13,32,210,255,32,225,255
  49. 490 [131]240,4,160,2,208,193,76,66,246
  50. 500 [128]
  51. 510 [143] --LAUFWERK-NUMMER AENDERN
  52. 520 [151]53280,0:[151]53281,0:[153][199](147)[170][199](159)[170][199](29)[170]"USER-HELP V1.0"
  53. 530 [153][199](17)[170]"ALTE FLOPPY NUMBER ";:[133]D0
  54. 540 [139] D0[179]8 [176] D0[177]15 [167] 530
  55. 550 [153][199](17)[170]"NEUE FLOPPY NUMBER ";:[133]DN
  56. 560 [139] D0[179]8 [176] D0[177]15 [167] 550
  57. 570 [159]15,D0,15
  58. 580 [152]15,"M-W"[199](119)[199](0)[199](2)[199](DN[170]32)[199](DN[170]64)
  59. 590 [160]15
  60. 600 [137] 200
  61. 610 [143] -- DISK NAME+ID AENDERN
  62. 620 [153][199](147)[170][199](159):[151]53280,0:[151]53281,0
  63. 630 [153][199](29)[170][199](29)[170]"USER-HELP V1.0"
  64. 631 [153]"NEUER DISK/NAME HOECHSTENS 16 ZEICHEN !"
  65. 632 [153]"NEUE DISK-ID   HOECHSTENS   5 ZEICHEN !"
  66. 640 [151]828,8
  67. 650 GN%[178][194](828):UR%[178]0
  68. 660 [141] 680
  69. 670 [160]1:[159]1,GN%,15,"I0":[141]830:[160]1:[139][195][178]0[167][142]
  70. 680 [160]1:[160]15:[159]15,GN%,15:NR[178]0:[159]1,GN%,3,"#":[152]15,"U1:3"NR",18,0"
  71. 690 [152]15,"B-P:3,144":D$[178]"":[129]L[178]1[164]16:[161]#1,A$:D$[178]D$[170]A$:[130]
  72. 700 [153][199](147)[170]CD$[170]"ALTER DISK-NAME: "[170][199](18)D$
  73. 710 NA$[178]"DISK-NAME":[153][199](17)[170][199](17)[170]"NEUER DISK-NAME";:[133]NA$
  74. 720 NA$[178][200](NA$[170]"                 ",16)
  75. 730 [152]15,"B-P:3,144":[152]1,NA$;:[152]15,"U2:3"NR",18,0":[160]1:[160]15
  76. 740 [143]ID
  77. 750 DV[178]0:[159]15,GN%,15:[159]1,GN%,3,"#":[152]15,"U1:3"DV",18,0"
  78. 760 [152]15,"B-P:3,162":[161]#1,A$,B$,C$,D$,E$
  79. 770 [153][199](147)[170][199](17)[170][199](17)[170]"ALTE DISK-ID: "[170][199](18)A$;B$;C$;
  80. 780 [153]D$;E$:[133]"NEUE DISK-ID";I$
  81. 790 [139][195](I$)[177]5[167]780
  82. 791 [139][195](I$)[179]5[167][129]I[178][195](I$)[164]5:I$[178]I$[170][199](32):[130]
  83. 810 [152]15,"B-P:3,162":[152]1,I$;:[152]15,"U2:3";DV;" 18 0"
  84. 811 [160]1:[152]15,"I":[160]15
  85. 820 [141]670:[142]
  86. 830 [160]15:[159]15,GN%,15
  87. 840 [132]15,EN,EN$,NE,EE:[139]UR%[167][137]200
  88. 850 [160]15:[137] 200
  89. 860 [143] -- ENDE
  90. 870 [153][199](147)[170][199](159)
  91. 880 [153][199](29)[170][199](29)[170]"MIT SYS49152 DIRECTORY OHNE PROGRAMM-   VERLUST ...
  92. 890 END
  93. 900 REM -- DISK-TIP
  94. 910 PRINTCHR$(147)+CHR$(159)+CHR$(29)+CHR$(29)+"USER-HELP V1.0"
  95. 920 PRINT"  [160][160][160][160]
  96. 930 [153][199](17)[170]" HIER SEHEN SIE DIE THENTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(FN
  97. 940 PRINT" GANZ NORMALE 5,25' [167]         [164][165]
  98. 950 [153]" ZOLL DISKETTE;EIN- THEN    (null)RIGHT$   FN
  99. 960 PRINT" SEITIG BESPIELBAR. [167]    [202][203]   [163][165]
  100. 970 [153]"                    THEN          FN
  101. 980 PRINT"    ** TASTE **     [167]    [213][201]    [165]
  102. 990 [153]"                    THEN    PEEKPEEK    FN
  103. 1000 PRINT"                    [167]    [202][203]    [165]
  104. 1010 [153]"                    THENTOTOTOTOTOTOTOTOTOTOFN
  105. 1020 PRINT"
  106. 1030 [151]198,0:[146]198,1
  107. 1040 [153][199](19)[170][199](17)[170][199](17)[170][199](17)[170][199](17)[170]"                    THENTO
  108. 1050 PRINT"                     [167]
  109. 1060 [153]"                    THENTAB(
  110. 1070 PRINTCHR$(145)+CHR$(145)+CHR$(145)+CHR$(145)+CHR$(29)+"WENN MAN ABER DIE "
  111. 1080 PRINTCHR$(29)+"DISK DORT LOCHT,
  112. 1090 [153][199](29)[170]"UND  DIE 2. SEITE
  113. 1100 PRINTCHR$(29)+"FORMATIERT,SO KANN
  114. 1110 [153][199](29)[170]"MAN SIE BEIDSEITIG
  115. 1120 PRINTCHR$(29)+"BENUTZEN!      "
  116. 1130 PRINTCHR$(17)+CHR$(29)+"    ** TASTE **
  117. 1140 [151]198,0:[146]198,1
  118. 1150 [137] 200
  119. 1160 [143] -- PRG.-SCRATCH
  120. 1170 [153][199](147)[170][199](29)[170][199](29)[170]"USER-HELP V1.0"
  121. 1180 [153][199](17)[170][199](17)[170][199](29)[170]"FILE-NAME:"[170][199](5);:[133]P$
  122. 1190 [159]1,8,15,"S:"[170]P$:[160]1
  123. 1200 [137] 200
  124. 1210 [143] -- VALIDIEREN
  125. 1220 [153][199](147)[170][199](29)[170][199](29)[170]"USER-HELP V1.0"
  126. 1230 [153][199](17)[170][199](17)[170][199](29)[170]"BITTE ETWAS GEDULD"
  127. 1240 [159]1,8,15,"V:":[160]1
  128. 1250 [137] 200
  129. 1260 [143] -- FORMATIEREN
  130. 1270 [153][199](147)[170][199](29)[170][199](29)[170]"USER-HELP V1.0"
  131. 1280 [153][199](17)[170][199](17)[170][199](29)[170]"DISK-NAME ";:[133]NA$
  132. 1290 [133][199](17)[170][199](29)[170]"DISK-ID   ";ID$
  133. 1300 [159]1,8,15,"N:"[170]NA$[170]","[170]ID$:[160]1
  134. 1310 [137] 200
  135. 1320 [143] -- DIRECTORY
  136. 1330 [153][199](147):[158]49152
  137. 1340 [153][199](17)[170][199](29)[170][199](29)[170][199](158)[170]"* BITTE TASTE *"
  138. 1350 [151]198,0:[146]198,1
  139. 1360 [137] 200
  140. 1370 [143] -- DIRECTORY AUSDRUCK
  141. 1380 [153][199](147):[158]49152
  142. 1390 [153][199](17)[170][199](29)[170][199](29)[170][199](158)[170]"* BITTE TASTE *"
  143. 1400 [151]198,0:[146]198,1
  144. 1410 [153][199](145)[170][199](29)[170][199](29)[170]"* BITTE DRUCKER ANSCHALTEN *"
  145. 1420 [151]198,0:[146]198,1
  146. 1430 [153][199](145)[170]"                                 "
  147. 1440 [159]1,3
  148. 1450 [159]4,4
  149. 1460 [153][199](145)[170]"   "[170][199](19);
  150. 1470 [129]I[178]1[164]25
  151. 1480 [129]J[178]1[164]40
  152. 1490 [161]#1,A$
  153. 1500 B$[178]B$[170]A$
  154. 1510 [130]J
  155. 1520 [152]4,B$
  156. 1530 B$[178]""
  157. 1540 [130]I
  158. 1550 [143] ============================
  159. 1560 [143] =  038911 BYTES MEMORY     =
  160. 1570 [143] =  004417 BYTES PROGRAM    =
  161. 1580 [143] =  000000 BYTES VARIABLES  =
  162. 1590 [143] =  000000 BYTES STRINGS    =
  163. 1600 [143] =  000000 BYTES ARRAYS     =
  164. 1610 [143] =  034494 BYTES FREE       =
  165. 1620 [143] ============================
  166.